open(BUFF,"probes_genes_entrezid");
$line=<BUFF>;
$num =0;
while(<BUFF>)
{
	if($_ !~ m/\,/)
        {
                $_ =~ s/\|/\t/g;
                $_ =~ s/\r//g;
                $_ =~ s/ //g;
                @array = split(/\t/,$_);
                if($array[0] ne "" && $array[2] ne "")
                {
			print "$array[2]";
                        $num++;
                }
        }

}
#print $num."\n";
